﻿<!-- #Include File="Function.asp" -->
<%
Select Case Action
Case "ClassType"
	Call ClassType()
End Select

Function ClassType()
	If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
		SqlClass = "select * from Class Where ChannelID="&Code_CLng(Trim(Code_Form("ChannelID")))&" And ClassID="&Code_CLng(Trim(Code_Form("ClassID")))
		Call Exec(RsClass,SqlClass,2)
		If RsClass.Bof And RsClass.Eof Then
			RsClass.Close
			Set RsClass = Nothing
			Response.Write "{""ContentMoban"":""view.html"",""ContentSkinID"":""DefaultSkin.css"",""ContentTemplateID"":""""}"
		Else
			Response.Write "{""ContentMoban"":"""
			If RsClass("ContentMoban")<>"" Then
				Response.Write RsClass("ContentMoban")
			Else
				Response.Write 0
			End If
			Response.Write """,""ContentSkinID"":"""
			If RsClass("ContentSkinID")<>"" Then
				Response.Write RsClass("ContentSkinID")
			Else
				Response.Write 0
			End If
			Response.Write """,""ContentTemplateID"":"""
			If RsClass("ContentTemplateID")<>"" Then
				Response.Write RsClass("ContentTemplateID")
			Else
				Response.Write 0
			End If
			Response.Write """}"
		End If
	End If
End Function
%>